home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / fgl110c.zip / 13-04.C < prev    next >
Text File  |  1992-01-31  |  385b  |  25 lines
  1. #include <fastgraf.h>
  2. #include <stdio.h>
  3.  
  4. void main(void);
  5.  
  6. void main()
  7. {
  8.    int i;
  9.    int freq;
  10.    int sound_array[83];
  11.  
  12.    i = 0;
  13.  
  14.    for (freq = 100; freq <= 500; freq+=10) {
  15.       sound_array[i++] = freq;
  16.       sound_array[i++] = 8;
  17.       }
  18.    sound_array[i] = 0;
  19.  
  20.    fg_sounds(sound_array,1);
  21.  
  22.    while(fg_playing())
  23.       printf("Still playing...\n");
  24. }
  25.